home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Gfx
/
Edit
/
TSMorph
/
rexx
/
PostAnim.TSM
< prev
next >
Wrap
Text File
|
1994-10-30
|
887b
|
37 lines
/* example Postscript script file for TSMorph */
/* This uses MKANIM to generate an Animation */
/*
* Assumes frames are 1..n and first and last
* frames are being rendered.
*
* Output file is t:TSM_Anim
*/
/* $VER: PostAnim_TSM 2.5 (6.2.94)
*/
parse arg Frame TotalFrames Single FileName
/* Frame - current frame number starting from Start frame
* TotalFrames - total number of frames
* Single - 1 for Single image warp, 0 for two image morph, 2 for Anim Morph, 3 for Anim Warp
* FileName - Name of 24 bit image just produced
*/
if (Frame = 0) then do
if ~open('tsmfile','t:tsm_genanim','w') then do
return 10
end
end
else do
if ~open('tsmfile','t:tsm_genanim','a') then do
return 10
end
end
call writeln('tsmfile','10 '||FileName)
call close('tsmfile')
if (Frame = TotalFrames+1) then do
address command "mkanim t:tsm_genanim t:TSM_Anim"
end
exit